0 REM*****************
1 REM* 3-D STATISTIK *
2 REM*@1988 BY RAINER*
3 REM* TEUBER        *
4 REM* PROGRAMMED AT *
5 REM* 28.7.1988     *
6 REM*****************
8 POKE53281,3:POKE53280,5:POKE54296,15:POKE54283,0
9 S1=54279:S2=54280:H=54285:AN=54283
10 PRINTCHR$(8):PRINT"[147]         DADEDE'S  3D-STATISTIK":REM ** ERKLAERUNG **
11 PRINT"[144]GEBE NACH JEDEM FRAGEZEICHEN DEN WERT,"
12 PRINT"EIN ',' UND DIE 2-STELLIGE Z.B.
13 [153]"JAHRESZAHL, GEFOLGT VON 'RETURN'  EIN."
14 [153]"WENN MAN NACH DER ZEICHNUNG DIE 'F1'    TASTE  DRUECKT, KANN"
15 [153]"MAN NEUE WERTE EINGEBEN."
20 [143] ** EINGABE **
25 [129]A[178]0[164]6
27 A$[178]""
30 [153][196](A[170]1)".";:[133]A$,JA$:[139]A$[178]""[167][153]"ONON":[137]30
31 [139][195](JA$)[179]1[167]JA$[178]"  "
33 [139][195](JA$)[178]1[167]JA$[178]" "[170]JA$
34 [151]S1,207:[151]S2,34:[151]H,240:[151]AN,17:[129]W[178]1[164]100:[130]:[151]AN,0
35 [139][195](JA$)[177]2[167]JA$[178][202](JA$,1,2)
36 [151]AN,0
50 A(A)[178][197](A$):JA$(A)[178][202](JA$,1,2)
60 [130]
78 [143] ** GROESSTER WERT **
80 G[178]A(0)
90 [129]B[178]1[164]7
100 [139]A(B)[177]G[167]G[178]A(B)
110 [130]
120 [143] > ZEICHNEN <-
190 T[178][171]3:[153]"LOAD"
195 D[178]0:T[178]T[170]5:[153]""[163]T)"STOP"JA$(C)"WAITSTEP"
200 A[178]A(C)[173](G[170]1E[171]37)[172]20
210 [153][163]T)"ONONSTOP   WAIT":[151]AN,33
220 [139]D[179]A[171]1[167]D[178]D[170]1:[137]210
225 [153][163]T)"ONSTEP  WAITSTOP":[151]AN,0
226 [153][163]T[171]2)"ONON"A(C)
230 [139]C[179]6[167]C[178]C[170]1:[137]195
400 [143]-> PRESS KEY <-
500 [161]A$:[139]A$[179][177]"INPUT"[167]500
510 [138]